home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / demos / mastdemo.zoo / batch / fib.bat < prev    next >
DOS Batch File  |  1990-03-22  |  307b  |  5 lines
  1. # Fibonacci numbers: try "fib 10" after loading this batch file
  2. alias fib 'unset s ; fib2 \$1 ; rem \$c'
  3. alias fib1 'if "\$1" > "1" {eval \$1 1 - => a ; fib2 \$a ; car s => s ; set s \$c \$s;}'
  4. alias fib2 'if "\$1" <= "1" {set c 1;} else {fib1 \$1 ; car -1o s => a ; car -2o s => b ; eval a b + => c;}'
  5.